home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2008 February / PCWFEB08.iso / Software / Resources / Utilities / ReNamer 4.10 / ReNamer.exe / {app} / Scripts / Serialize duplicates.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2006-07-21  |  705 b   |  33 lines

  1. var
  2.   Files: TStringsArray;
  3.  
  4. procedure Add(const S: WideString);
  5. begin
  6.   WideArraySetLength(Files, WideArrayLength(Files)+1);
  7.   Files[WideArrayLength(Files)-1] := S;
  8. end;
  9.  
  10. function Exists(const S: WideString): Boolean;
  11. var I: Integer;
  12. begin
  13.   Result := False;
  14.   for I:=0 to WideArrayLength(Files)-1 do
  15.     if WideSameText(Files[I], S) then
  16.       begin Result := True; Break; end;
  17. end;
  18.  
  19. var
  20.   NewFileName: WideString;
  21.   Counter: Integer;
  22.  
  23. begin
  24.   Counter := 2;
  25.   NewFileName := FileName;
  26.   while Exists(NewFileName) do
  27.     begin
  28.     NewFileName := FileName + ' (' + IntToStr(Counter)+')';
  29.     Counter := Counter + 1;
  30.     end;
  31.   FileName := NewFileName;
  32.   Add(FileName);
  33. end.